perm filename LTCONS.LSP[LSP,SYS] blob
sn#057663 filedate 1974-01-15 generic text, type T, neo UTF8
00100 (SETQ BASE (SETQ IBASE (ADD1 7)))
00200 (DECLARE (SPECIAL BPORG BPEND))
00300
00400 [DE LTSET (SIZE FLAG)
00500 (PROG (N)
00600 [COND ((AND (SETQ N (LTSET1 SIZE BPORG BPEND FLAG)) FLAG)(SETQ BPORG N]
00700 (RETURN (NOT (NULL N]
00800
00900
01000 [DE LTREL NIL
01100 (PROG (N)
01200 [COND ((SETQ N (LTREL1 BPORG BPEND)) (SETQ BPORG N]
01300 (RETURN (NOT (NULL N]
01400
01500 [DE LTREAD NIL
01600 (PROG (N N1 N2 SEXPR)
01700 (SETQ N (PLUS (MAKNUM (GET @READ @SUBR)@FIXNUM) 25))
01800 (SETQ N1 (MAKNUM (GET @XCONS @SUBR) @FIXNUM))
01900 (SETQ N2 (MAKNUM (GET @LTXCONS @SUBR) @FIXNUM))
02000 (DEPOSIT N (PLUS 254000000000 N2))
02100 (SETQ SEXPR (READ))
02200 (DEPOSIT N (PLUS 254000000000 N1))
02300 (RETURN SEXPR)
02400 )
02500 )
02600
02700 (GETSYM SUBR LTCONS LTXCONS LTSET1 LTREL1 UNLTCONS DDT)
02800 (GETSYM SUBR LTOCCUPANCY LTAVERAGELOOKUP LTMAXLOOKUP)